home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 10 / 010.d81 / disk to tape (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  809b  |  29 lines
  1. 2 poke786,0:rem*******disk to tape/com-64****by l.minniti*********
  2. 3 fort=1to4
  3. 4 print"[147]program name?":print"type-end[146]-when finished"
  4. 5 inputpr$(t)
  5. 6 poke786,peek(786)+1
  6. 7 z=peek(786)
  7. 8 ifpr$(t)="end"then10
  8. 9 next
  9. 10 print"[147]"(496+z)"d[193]"pr$(1)","pr$(2)","pr$(3)","pr$(4)
  10. 11 ifpr$(4)=""orpr$(4)="end"thenprint"goto14":goto13
  11. 12 print"goto3"
  12. 13 :poke198,2:poke631,13:poke632,13:end
  13. 14 print"[147]":fort=2to16:printt:next
  14. 15 print"save-disk[146]-on disk you want to back-up"
  15. 16 print"":poke198,15:fort=1to15:poke630+t,13:next:end
  16. 18 print"[147]press record and play"
  17. 19 ifpeek(1)>40thengosub100
  18. 20 poke787,peek(787)+1
  19. 30 d=peek(787)
  20. 50 forc=1tod:reada$:next
  21. 55 ifa$="end"thenprint"[147]finished":end
  22. 70 print"[147]l[207]"chr$(34)a$chr$(34)",8"
  23. 75 print"s[193]"chr$(34)a$:print"new"
  24. 80 print"load"chr$(34)"disk"chr$(34)",8":print"poke198,0:run"
  25. 90 poke198,10:fort=1to10:poke630+t,13:next:end
  26. 100 wait1,16,16
  27. 110 ifpeek(787)=0thenreturn
  28. 120 poke787,peek(787)-1:return
  29.